0 POKE53280,0:POKE53281,6:POKE646,1
1 PRINT"[147]COMMODARES PROBLEM #30-3"
2 PRINT"    WORD WRAPPER":PRINT
3 REM SOLUTION BY
4 REM     JIM SPEERS
5 REM
10 L$="[157]":B$=" ":FORI=1TO79:LL$=LL$+L$:BL$=BL$+B$:NEXT:D$=CHR$(20)
20 Q$=CHR$(34)+CHR$(20)+CHR$(34):WL=0:LL=0:C$="[175]":PRINT""C$;
30 GETZ$:IFZ$="" THEN 30
40 IF Z$="_" THEN PRINT L$;B$:END
50 X=ASC(Z$):IF X=32 THEN WL=0:W$="":LL=LL+1:PRINT L$Z$C$;:GOTO 140
60 IF X=34 THEN PRINT L$Q$C$;:WL=WL+1:LL=LL+1:WL$=WL$+Q$:GOTO 140
70 IF X=13 THEN PRINT L$B$:PRINT C$;:LL=0:WL=0:W$="":GOTO 30
80 IF X<>20 THEN 120
90 PRINT D$D$C$;:LL=LL-1:IF WL>0 THEN WL=WL-1:W$=LEFT$(W$,LEN(W$)-1)
100 IF LL<0 THEN LL=LL+80
110 GOTO 30
120 IF (X>16ANDX<32) OR (X>127ANDX<160) THEN 30
130 PRINT L$Z$C$;:W$=W$+Z$:WL=WL+1:LL=LL+1
140 IF LL<81 THEN 30
150 IF WL=0 THEN 30
160 PRINT LEFT$(LL$,WL+1)LEFT$(BL$,WL-1)W$C$;:LL=WL:GOTO 30